﻿Imports VN.INS.DL.DALC
Imports VN.INS.BL.BE
Public Class POABC
    ''' <summary>
    ''' Ejemplo de mapeo de Acceso a datos a Lógica de Negocios
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ListaPOA(ByVal strPersona As String, ByVal ano As String) As DataTable
        Dim objPOADA As POADA
        Dim objDt As DataTable
        Try
            objPOADA = New POADA
            objDt = objPOADA.ListaPOA(strPersona, ano)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaPOA(ByVal strPoa As String, ByVal strPersona As String, ByVal strNombre As String, ByVal strTipo As String, ByVal ano As String)
        Dim objPOADA As POADA
        Dim objDt As DataTable

        Try
            objPOADA = New POADA
            objDt = objPOADA.ListaPOA(strPoa, strPersona, strNombre, strTipo, ano)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaAvanceFisico(ByVal strPOA As String, ByVal strPeriodo As String) As DataTable
        Dim objPOADA As POADA
        Dim objDt As DataTable

        Try
            objPOADA = New POADA
            objDt = objPOADA.ListaAvanceFisico(strPOA, strPeriodo)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaAvanceFinanciero(ByVal strPOA As String, ByVal strPeriodo As String) As DataTable
        Dim objPOADA As POADA
        Dim objDt As DataTable

        Try
            objPOADA = New POADA
            objDt = objPOADA.ListaAvanceFinanciero(strPOA, strPeriodo)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class
